home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / B-Book Series / (k)b2.d64 / festivals < prev    next >
Text File  |  2007-02-28  |  1KB  |  44 lines
  1. 0010 //DECLARATIONS
  2. 0020 DIM SENDER$ OF 30, DATE$ OF 20
  3. 0030 DIM RECIPIENT$ OF 30, ANSW$ OF 3
  4. 0040 //*
  5. 0050 //MAINLINES//
  6. 0060 PRINT CHR$(147) //CLEAR SCREEN//
  7. 0070 PRINT "FROM WHOM",
  8. 0080 INPUT SENDER$
  9. 0090 REPEAT  //WRITING LETTERS//
  10. 0100 PRINT "TO WHOM",
  11. 0110 INPUT RECIPIENT$
  12. 0120 PRINT 
  13. 0130 PRINT "1=XMAS / 2=EASTER / 3=WHITSUN ",
  14. 0140 INPUT FESTIVAL
  15. 0150 WRITELETTER
  16. 0160 PRINT CHR$(19) //HOME//
  17. 0170 PRINT "MORE LETTERS (YES/NO)",
  18. 0180 INPUT ANSW$
  19. 0190 PRINT CHR$(147)
  20. 0200 UNTIL ANSW$="NO"
  21. 0210 //*
  22. 0220 PROC WRITELETTER 
  23. 0230 PRINT CHR$(147) //CLEAR SCREEN//
  24. 0240 FOR I:=1 TO 8 DO PRINT  //8 DOWN//
  25. 0250 PRINT "DEAR ",RECIPIENT$
  26. 0260 PRINT 
  27. 0270 CASE FESTIVAL OF
  28. 0280 WHEN 1
  29. 0290 PRINT "A VERY MERRY CHRISTMAS"
  30. 0300 PRINT "AND A MOST HAPPY NEW YEAR"
  31. 0310 WHEN 2
  32. 0320 PRINT "I WISH YOU A HAPPY EASTER"
  33. 0330 PRINT "WITH A JOLLY GOOD PARADE."
  34. 0340 WHEN 3
  35. 0350 PRINT "MAY YOU WHITSUN BE GAY AND FAIR."
  36. 0360 PRINT "I HOPE LAST YEARS SPRING SUIT"
  37. 0370 PRINT "STILL FITS YOU."
  38. 0380 ENDCASE 
  39. 0390 PRINT 
  40. 0400 PRINT "          LOVE FROM"
  41. 0410 PRINT "          ",SENDER$
  42. 0420 ENDPROC WRITELETTER
  43. 0430 //
  44.